home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group01b.txt / 000141_icon-group-sender_Thu Sep 6 12:55:23 2001.msg < prev    next >
Internet Message Format  |  2002-01-03  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.11.1/8.11.1) id f86JsQ212824
  4.     for icon-group-addresses; Thu, 6 Sep 2001 12:54:26 -0700 (MST)
  5. Message-Id: <200109061954.f86JsQ212824@baskerville.CS.Arizona.EDU>
  6. From: Steve Wampler <swampler@noao.edu>
  7. X-Newsgroups: comp.lang.icon
  8. Subject: Re: join
  9. Date: Thu, 06 Sep 2001 09:58:35 -0700
  10. X-Complaints-To: abuse@noao.edu
  11. X-Accept-Language: en
  12. To: icon-group@cs.arizona.edu
  13. Errors-To: icon-group-errors@cs.arizona.edu
  14. Status: RO
  15. Content-Length: 1448
  16.  
  17. Andrew Hamm wrote:
  18. > 
  19. > dodod wrote in message <3B8C3D59.AA150BB8@hotmail.com>...
  20. > >hello
  21. > >i would like to write a program to emulate
  22. > >unix join command but i do not know how to start
  23. > >can you give me a hint or an example ?
  24. > >
  25. ....
  26. > I suppose it could also be programmed without the use of coroutines, but
  27. > where's the fun in that?
  28.  
  29. A *long* time ago I wrote a short program to "pair" the lines
  30. of two files using co-expressions (the basic stuff took 4 statements).
  31. Then I realized that the functionality the program was using from the co-expressions
  32. behavior is *exactly* the behavior provided by read()...
  33.  
  34. [A question for people: How equivalent are the following approaches?
  35.  
  36.     f := open(filename)
  37.     while line := read(f) do ...
  38.     close(f)
  39.  
  40. and
  41.  
  42.     cf := create (!(f := open(filename)) | (close(f),&fail))
  43.     while line := @cf do ...
  44.  
  45. ]
  46.  
  47. Anyway, switching to read() instead of coroutines cut the basic
  48. algorithm down to 2 statements.
  49.  
  50. Here's the basic algorithm for this "pairing":
  51.  
  52.     # Output pairs of lines from files f1 and f2, where each pair
  53.     #    is joined on a single output line.
  54.     #
  55.     procedure pair(f1, f2)
  56.         while write( read(f1), read(f2)|"")
  57.         while write( read(f2) )
  58.     end
  59.  
  60. join's basic algorithm isn't much worse, but there's a lot of
  61. ugliness to handle the fields [still cleaner than in C, I imagine!].
  62.     
  63. --
  64. Steve Wampler-  SOLIS Project, National Solar Observatory
  65. swampler@noao.edu
  66.